Introducion

Este sitio web muestra visualizaciones de registros de delitos en Costa Rica en forma de tablas, gráficos.

library(dplyr) 
library(ggplot2) 
library(ggthemes) 
library(plotly) 
library(kableExtra) 
library(DT) 
Datos_policiales <-
readxl::read_excel("C:/Users/erick.ruiz/Documents/RStudio/Datos_policiales/estadisticaspoliciales2021.xls", 
   col_names = TRUE,
 .name_repair = "unique")
Datos_policiales %>%
  dplyr::select("Delito","Fecha","Victima","Edad","Genero","Provincia","Canton") %>%
  datatable(
    options = list(
      pageLength = 10,
    
      language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json') 
    ),
    colnames = c(
      
      "Delitos",
      "Fecha",
      "Víctima",
      "Edad",
      "Género",
      "Provincia",
      "Cantón"
    )
  )
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html